home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / origami2.arc / PUPPY.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  32.6 KB  |  1,469 lines
  1. 5  SCREEN 1,0:COLOR 1,15: KEY OFF: CLS
  2. 10  DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$
  3. 15  LOCATE 12,1:PRINT FNCEN$("PUPPY",40)
  4. 20  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  5. 25  PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40)
  6. 30  PRINT FNCEN$("All Rights Reserved",40)
  7. 35  FOR K=1 TO 2500:NEXT K
  8. 40  CLS
  9. 45                             '***Zapsound***
  10. 50  FOR A=0 TO 20
  11. 55  OUT 66,A:OUT 66,A
  12. 60  OUT 97,(INP(97) OR 3)
  13. 65  NEXT A
  14. 70  SOUND 37,0
  15. 75  FOR K=1 TO 250:NEXT K
  16. 80                              '***End Zapsound***
  17. 85              '*** start draw ***
  18. 90  LINE(160,30)-(80,100)
  19. 95  LINE-(160,170)
  20. 100  LINE-(240,100)
  21. 105  LINE-(160,30)
  22. 110  GOSUB 30000         '** Textpad **
  23. 115  PRINT FNCEN$("PUPPY starts with KITE Base",40)
  24. 120  FOR K=1 TO 1500:NEXT K
  25. 125  PRINT FNCEN$("which by now we should be able to fold",40)
  26. 130  FOR K=1 TO 1500:NEXT K
  27. 135  PRINT FNCEN$("in our sleep,",40)
  28. 140  FOR K=1 TO 1500:NEXT K
  29. 145  GOSUB 30000         '** Textpad **
  30. 150  PRINT FNCEN$("SO!",40)
  31. 155  FOR K=1 TO 750:NEXT K
  32. 160  FOR V=30 TO 170 STEP 2
  33. 165  PSET(160,V)
  34. 170  NEXT V
  35. 175  FOR K=1 TO 750:NEXT K
  36. 180  LINE(205,70)-(160,170)
  37. 185  FOR K=1 TO 750:NEXT K
  38. 190  FOR Q=0 TO 35
  39. 195  LINE(160,170)-(240-Q,100-0.875*Q)
  40. 200  LINE(160,170)-(240-Q,100-0.875*Q),0
  41. 205  LINE(160,170)-(241-Q,100-0.875*Q),0
  42. 210  NEXT Q
  43. 215  FOR H=205 TO 160 STEP -1
  44. 220  LINE(160,170)-(H,70)
  45. 225  NEXT H
  46. 230  FOR K=1 TO 750:NEXT K
  47. 235  LINE(115,70)-(160,170)
  48. 240  FOR K=1 TO 750:NEXT K
  49. 245  FOR Q=0 TO 35
  50. 250  LINE(160,170)-(80+Q,100-0.857*Q)
  51. 255  LINE(160,170)-(80+Q,100-0.857*Q),0
  52. 260  LINE(160,170)-(79+Q,100-0.857*Q),0
  53. 265  NEXT Q
  54. 270  LINE(115,70)-(160,170)
  55. 275  FOR H=115 TO 160
  56. 280  LINE(H,70)-(160,170)
  57. 285  NEXT H
  58. 290  LINE(160,70)-(160,170),0
  59. 295  GOSUB 30000         '** Textpad **
  60. 300  PRINT FNCEN$("There!  I'll wait for your KITE.",40)
  61. 305  FOR K=1 TO 1500:NEXT K
  62. 310  GOSUB 30000         '** Textpad **
  63. 315  PRINT FNCEN$("Press <C> to continue.",40)
  64. 320  A$=INKEY$:IF A$="" GOTO 320
  65. 325  IF A$="C" OR A$="c" GOTO 335
  66. 330  GOTO 310
  67. 335  GOSUB 30000         '** Textpad **
  68. 340  PRINT FNCEN$("Now we'll stand KITE on its head.",40)
  69. 345  FOR K=1 TO 1500:NEXT K
  70. 350  GOSUB 30000         '** Textpad **
  71. 355  PRINT FNCEN$("One moment, please.",40)
  72. 360  FOR K=1 TO 750:NEXT K
  73. 365  CLS
  74. 370  FOR A=0 TO 20
  75. 375  OUT 66,A:OUT 66,A
  76. 380  OUT 97,(INP(97) OR 3)
  77. 385  NEXT A
  78. 390  SOUND 37,0
  79. 395  FOR K=1 TO 250:NEXT K
  80. 400  LINE(160,30)-(115,130)
  81. 405  LINE-(160,170)
  82. 410  LINE-(205,130)
  83. 415  LINE-(160,30)
  84. 420  LINE(115,130)-(205,130)
  85. 425  PAINT(160,100)
  86. 430  LINE(160,30)-(160,130),0
  87. 435  FOR V=132 TO 170 STEP 2
  88. 440  PSET(160,V)
  89. 445  NEXT V
  90. 450  FOR K=1 TO 750:NEXT K
  91. 455  GOSUB 30000         '** Textpad **
  92. 460  PRINT FNCEN$("We first fold and backfold this corner",40)
  93. 465  FOR K=1 TO 750:NEXT K
  94. 470                              '*** arrow down ***
  95. 475  FOR K=1 TO 15
  96. 480  PSET(160,22):DRAW"E5L4U7L2D7L4F5"
  97. 485  PAINT(160,16)
  98. 490  FOR M=1 TO 25:NEXT M
  99. 495  CIRCLE(160,16),7,0
  100. 500  PAINT(160,16),0
  101. 505  NEXT K
  102. 510                              '***end arrow down ***
  103. 515  FOR K=1 TO 750:NEXT K
  104. 520  GOSUB 30000         '** Textpad **
  105. 525  PRINT FNCEN$("down to this point",40)
  106. 530  FOR K=1 TO 750:NEXT K
  107. 535                                '*** flashdot ***
  108. 540  FOR K=1 TO 15
  109. 545  CIRCLE(160,130),5,0
  110. 550  LINE(158,130)-(162,130),0
  111. 555  LINE(160,128)-(160,132),0
  112. 560  FOR M=1 TO 25:NEXT M
  113. 565  CIRCLE(160,130),5
  114. 570  LINE(158,130)-(162,130)
  115. 575  LINE(160,128)-(160,132)
  116. 580  NEXT K
  117. 585  CIRCLE(160,130),5,0,3.14,6.28
  118. 590  LINE(150,130)-(170,130)
  119. 595  LINE(160,120)-(160,130),0
  120. 600  FOR V=132 TO 170 STEP 2
  121. 605  PSET(160,V)
  122. 610  NEXT V
  123. 615  PSET(160,131),0
  124. 620  FOR K=1 TO 750:NEXT K
  125. 625  GOSUB 30000         '** Textpad **
  126. 630  PRINT FNCEN$("over this line",40)
  127. 635  FOR K=1 TO 750:NEXT K
  128. 640  FOR H=136 TO 184 STEP 2
  129. 645  PSET(H,80),0
  130. 650  NEXT H
  131. 655  FOR K=1 TO 750:NEXT K
  132. 660  FOR V=30 TO 80
  133. 665  LINE(137,80)-(160,V)
  134. 670  LINE-(183,80)
  135. 675  LINE(137,80)-(160,V),0
  136. 680  LINE-(183,80),0
  137. 685  NEXT V
  138. 690  FOR V=80 TO 129
  139. 695  LINE(137,80)-(160,V),0
  140. 700  LINE-(183,80),0
  141. 705  LINE(137,80)-(160,V)
  142. 710  LINE-(183,80)
  143. 715  NEXT V
  144. 720  LINE(137,80)-(160,129),0
  145. 725  LINE-(183,80),0
  146. 730  FOR K=1 TO 750:NEXT K
  147. 735  GOSUB 30000     '*** Textpad***
  148. 740  PRINT FNCEN$("and back.",40)
  149. 745  FOR K=1 TO 750:NEXT K
  150. 750  FOR V=129 TO 80 STEP -1
  151. 755  LINE(137,80)-(160,V),0
  152. 760  LINE-(183,80),0
  153. 765  LINE(137,80)-(160,V)
  154. 770  LINE-(183,80)
  155. 775  PSET(160,V),0
  156. 780  NEXT V
  157. 785  FOR H=136 TO 185 STEP 2
  158. 790  PSET(H,81),0
  159. 795  NEXT H
  160. 800  FOR V=80 TO 30 STEP -1
  161. 805  LINE(138,80)-(160,V)
  162. 810  LINE-(182,80)
  163. 815  PSET(160,V),0
  164. 820  NEXT V
  165. 825  LINE(160,30)-(160,40),0
  166. 830  LINE(114,130)-(160,29),0
  167. 835  LINE-(206,130),0
  168. 840  FOR K=1 TO 750:NEXT K
  169. 845  GOSUB 30000     '*** Textpad***
  170. 850  PRINT FNCEN$("Your turn to fold and backfold.",40)
  171. 855  FOR K=1 TO 1500:NEXT K
  172. 860  GOSUB 30000       '*** Textpad ***
  173. 865  PRINT FNCEN$("To review that fold, press <R>.",40)
  174. 870  FOR K=1 TO 750:NEXT K
  175. 875  PRINT FNCEN$("To continue, press <C>.",40)
  176. 880  A$=INKEY$:IF A$="" GOTO 880
  177. 885  IF A$="r" OR A$="R" GOTO 900
  178. 890  IF A$="c" OR A$="C" GOTO 940
  179. 895  GOTO 860
  180. 900  FOR H=138 TO 183 STEP 2
  181. 905  PSET(H,81)
  182. 910  NEXT H
  183. 915  PSET(160,81),0
  184. 920  GOSUB 30000         '** Textpad **
  185. 925  PRINT FNCEN$("* Review *",40)
  186. 930  FOR K=1 TO 1500:NEXT K
  187. 935  GOTO 455
  188. 940  GOSUB 30000         '** Textpad **
  189. 945  PRINT FNCEN$("We next take our friend here",40)
  190. 950  FOR K=1 TO 750:NEXT K
  191. 955                             '*** arrow down ***
  192. 960  FOR K=1 TO 15
  193. 965  PSET(160,22):DRAW"E5L4U7L2D7L4F5"
  194. 970  PAINT(160,16)
  195. 975  FOR M=1 TO 25:NEXT M
  196. 980  CIRCLE(160,16),7,0
  197. 985  PAINT(160,16),0
  198. 990  NEXT K
  199. 995                             '***end arrow down ***
  200. 1000  FOR K=1 TO 750:NEXT K
  201. 1005  GOSUB 30000         '** Textpad **
  202. 1010  PRINT FNCEN$("down across this fold line,",40)
  203. 1015  FOR K=1 TO 750:NEXT K
  204. 1020  FOR H=148 TO 172 STEP 2
  205. 1025  PSET(H,55),0
  206. 1030  NEXT H
  207. 1035  FOR K=1 TO 750:NEXT K
  208. 1040  GOSUB 30000         '** Textpad **
  209. 1045  PRINT FNCEN$("THUS!",40)
  210. 1050  FOR K=1 TO 750:NEXT K
  211. 1055  FOR V=30 TO 55
  212. 1060  LINE(149,55)-(160,V)
  213. 1065  LINE-(171,55)
  214. 1070  LINE(149,55)-(160,V),0
  215. 1075  LINE-(171,55),0
  216. 1080  NEXT V
  217. 1085  FOR V=55 TO 80
  218. 1090  LINE(149,55)-(160,V),0
  219. 1095  LINE-(171,55),0
  220. 1100  LINE(149,55)-(160,V)
  221. 1105  LINE-(171,55)
  222. 1110  NEXT V
  223. 1115  LINE(149,55)-(160,79),0
  224. 1120  LINE-(171,55),0
  225. 1125  FOR K=1 TO 750:NEXT K
  226. 1130  GOSUB 30000         '** Textpad **
  227. 1135  PRINT FNCEN$("and back.",40)
  228. 1140  FOR K=1 TO 750:NEXT K
  229. 1145  FOR V=80 TO 55 STEP -1
  230. 1150  LINE(149,55)-(160,V),0
  231. 1155  LINE-(171,55),0
  232. 1160  LINE(149,55)-(160,V)
  233. 1165  LINE-(171,55)
  234. 1170  PSET(160,V),0
  235. 1175  NEXT V
  236. 1180  FOR H=148 TO 172 STEP 2
  237. 1185  PSET(H,56),0
  238. 1190  NEXT H
  239. 1195  FOR V=55 TO 30 STEP -1
  240. 1200  LINE(149,55)-(160,V)
  241. 1205  LINE-(171,55)
  242. 1210  PSET(160,V),0
  243. 1215  NEXT V
  244. 1220  LINE(160,30)-(160,40),0
  245. 1225  GOSUB 30000       '*** Textpad ***
  246. 1230  PRINT FNCEN$("Press <R> to review.",40)
  247. 1235  FOR K=1 TO 1000:NEXT K
  248. 1240  PRINT FNCEN$("To continue, press <C>.",40)
  249. 1245  A$=INKEY$:IF A$="" GOTO 1245
  250. 1250  IF A$="r" OR A$="R" GOTO 1265
  251. 1255  IF A$="c" OR A$="C" GOTO 1295
  252. 1260  GOTO 1225
  253. 1265  LINE(150,56)-(170,56)
  254. 1270  PSET(160,56),0
  255. 1275  GOSUB 30000         '** Textpad **
  256. 1280  PRINT FNCEN$("* Review *",40)
  257. 1285  FOR K=1 TO 1500:NEXT K
  258. 1290  GOTO 940
  259. 1295  GOSUB 30000     '*** Textpad***
  260. 1300  PRINT FNCEN$("We now fold and backfold",40)
  261. 1305  FOR K=1 TO 1500:NEXT K
  262. 1310  GOSUB 30000     '*** Textpad***
  263. 1315  PRINT FNCEN$("across this line",40)
  264. 1320  FOR K=1 TO 750:NEXT K
  265. 1325  FOR H=150 TO 170 STEP 2
  266. 1330  PSET(H,50),0
  267. 1335  NEXT H
  268. 1340  FOR K=1 TO 750:NEXT K
  269. 1345  FOR V=30 TO 50
  270. 1350  LINE(151,50)-(160,V),3
  271. 1355  LINE-(169,50),3
  272. 1360  LINE(151,50)-(160,V),0
  273. 1365  LINE-(169,50),0
  274. 1370  NEXT V
  275. 1375  FOR V=50 TO 70
  276. 1380  LINE(151,50)-(160,V),0
  277. 1385  LINE-(169,50),0
  278. 1390  LINE(151,50)-(160,V),3
  279. 1395  LINE-(169,50),3
  280. 1400  NEXT V
  281. 1405  LINE(151,50)-(160,V),0
  282. 1410  LINE-(169,50),0
  283. 1415  FOR K=1 TO 750:NEXT K
  284. 1420  GOSUB 30000     '*** Textpad***
  285. 1425  PRINT FNCEN$("and return.",40)
  286. 1430  FOR K=1 TO 750:NEXT K
  287. 1435  FOR V=70 TO 56 STEP -1
  288. 1440  LINE(151,50)-(160,V),0
  289. 1445  LINE-(169,50),0
  290. 1450  LINE(151,50)-(160,V),3
  291. 1455  LINE-(169,50),3
  292. 1460  PSET(160,V),0
  293. 1465  LINE(154,58)-(159,69)
  294. 1470  LINE(166,58)-(161,69)
  295. 1475  NEXT V
  296. 1480  LINE(151,50)-(160,55),0
  297. 1485  LINE-(169,50),0
  298. 1490  FOR H=148 TO 172 STEP 2
  299. 1495  PSET(H,56),0
  300. 1500  NEXT H
  301. 1505  FOR V=55 TO 50 STEP -1
  302. 1510  LINE(151,50)-(160,V),3
  303. 1515  LINE-(169,50),3
  304. 1520  PSET(160,V),0
  305. 1525  FOR H=150 TO 170 STEP 2
  306. 1530  PSET(H,50),0
  307. 1535  NEXT H
  308. 1540  NEXT V
  309. 1545  FOR V=49 TO 30 STEP -1
  310. 1550  LINE(152,49)-(160,V),3
  311. 1555  LINE-(168,49),3
  312. 1560  PSET(160,V),0
  313. 1565  NEXT V
  314. 1570  LINE(160,30)-(160,35),0
  315. 1575  FOR K=1 TO 750:NEXT K
  316. 1580  GOSUB 30000     '*** Textpad***
  317. 1585  PRINT FNCEN$("Your turn to fold and backfold.",40)
  318. 1590  FOR K=1 TO 1500:NEXT K
  319. 1595  GOSUB 30000       '*** Textpad ***
  320. 1600  PRINT FNCEN$("Press <R> to review.",40)
  321. 1605  FOR K=1 TO 1000:NEXT K
  322. 1610  PRINT FNCEN$("To continue, press <C>.",40)
  323. 1615  A$=INKEY$:IF A$="" GOTO 1615
  324. 1620  IF A$="r" OR A$="R" GOTO 1630
  325. 1625  IF A$="c" OR A$="C" GOTO 1665
  326. 1630  LINE(151,50)-(169,50)
  327. 1635  PSET(160,50),0
  328. 1640  GOSUB 30000         '** Textpad **
  329. 1645  PRINT FNCEN$("* Review *",40)
  330. 1650  FOR K=1 TO 1500:NEXT K
  331. 1655  GOTO 1295
  332. 1660  END
  333. 1665  GOSUB 30000         '** Textpad **
  334. 1670  PRINT FNCEN$("Our next fold is the last of this set.",40)
  335. 1675  FOR K=1 TO 1500:NEXT K
  336. 1680  FOR K=1 TO 15
  337. 1685  LINE(154,40)-(166,40),0
  338. 1690  FOR M=1 TO 25:NEXT M
  339. 1695  LINE(154,40)-(166,40),3
  340. 1700  NEXT K
  341. 1705  FOR H=154 TO 166 STEP 2
  342. 1710  PSET(H,40),0
  343. 1715  NEXT H
  344. 1720  FOR K=1 TO 750:NEXT K
  345. 1725  FOR V=30 TO 40
  346. 1730  LINE(155,40)-(160,V),3
  347. 1735  LINE-(165,40),3
  348. 1740  LINE(155,40)-(160,V),0
  349. 1745  LINE-(165,40),0
  350. 1750  NEXT V
  351. 1755  FOR V=40 TO 49
  352. 1760  LINE(155,40)-(160,V),0
  353. 1765  LINE-(165,40),0
  354. 1770  LINE(155,40)-(160,V),3
  355. 1775  LINE-(165,40),3
  356. 1780  NEXT V
  357. 1785  LINE(155,40)-(160,49),0
  358. 1790  LINE-(165,40),0
  359. 1795  GOSUB 30000         '** Textpad **
  360. 1800  PRINT FNCEN$("Return.",40)
  361. 1805  FOR K=1 TO 750:NEXT K
  362. 1810  FOR V=49 TO 40 STEP -1
  363. 1815  LINE(155,40)-(160,V),0
  364. 1820  LINE-(165,40),0
  365. 1825  LINE(155,40)-(160,V)
  366. 1830  LINE-(165,40)
  367. 1835  PSET(160,V),0
  368. 1840  NEXT V
  369. 1845  FOR H=154 TO 166 STEP 2
  370. 1850  PSET(H,41),0
  371. 1855  NEXT H
  372. 1860  FOR V=39 TO 30 STEP -1
  373. 1865  LINE(155,40)-(160,V),3
  374. 1870  LINE-(165,40),3
  375. 1875  PSET(160,V),0
  376. 1880  NEXT V
  377. 1885  FOR H=154 TO 166 STEP 2
  378. 1890  PSET(H,41),0
  379. 1895  NEXT H
  380. 1900  LINE(160,30)-(160,60),0
  381. 1905  LINE(114,130)-(160,29),0
  382. 1910  LINE-(206,130),0
  383. 1915  PSET(155,41):PSET(165,41)
  384. 1920  FOR K=1 TO 750:NEXT K
  385. 1925  GOSUB 30000       '*** Textpad ***
  386. 1930  PRINT FNCEN$("Press <R> to review.",40)
  387. 1935  FOR K=1 TO 1000:NEXT K
  388. 1940  PRINT FNCEN$("To continue, press <C>.",40)
  389. 1945  A$=INKEY$:IF A$="" GOTO 1945
  390. 1950  IF A$="r" OR A$="R" GOTO 1965
  391. 1955  IF A$="c" OR A$="C" GOTO 1995
  392. 1960  GOTO 1925
  393. 1965  LINE(155,41)-(165,41)
  394. 1970  PSET(160,41),0
  395. 1975  GOSUB 30000         '** Textpad **
  396. 1980  PRINT FNCEN$("* Review *",40)
  397. 1985  FOR K=1 TO 750:NEXT K
  398. 1990  GOTO 1665
  399. 1995  GOSUB 30000         '** Textpad **
  400. 2000  PRINT FNCEN$("Now we'll position those folds",40)
  401. 2005  FOR K=1 TO 1500:NEXT K
  402. 2010  GOSUB 30000         '** Textpad **
  403. 2015  PRINT FNCEN$("in their proper places.",40)
  404. 2020  FOR K=1 TO 1500:NEXT K
  405. 2025  GOSUB 30000         '** Textpad **
  406. 2030  PRINT FNCEN$("First placement.",40)
  407. 2035  FOR K=1 TO 750:NEXT K
  408. 2040  FOR V=30 TO 55
  409. 2045  LINE(149,55)-(160,V),3
  410. 2050  LINE-(171,55),3
  411. 2055  LINE(149,55)-(160,V),0
  412. 2060  LINE-(171,55),0
  413. 2065  NEXT V
  414. 2070  FOR V=55 TO 80
  415. 2075  LINE(149,55)-(160,V),0
  416. 2080  LINE-(171,55),0
  417. 2085  LINE(149,55)-(160,V),3
  418. 2090  LINE-(171,55),3
  419. 2095  NEXT V
  420. 2100  LINE(149,55)-(160,80),0
  421. 2105  LINE-(171,55),0
  422. 2110  FOR H=156 TO 164 STEP 2
  423. 2115  PSET(H,70),0
  424. 2120  NEXT H
  425. 2125  FOR H=151 TO 169 STEP 2
  426. 2130  PSET(H,60),0
  427. 2135  NEXT H
  428. 2140  FOR K=1 TO 750:NEXT K
  429. 2145  GOSUB 30000         '** Textpad **
  430. 2150  PRINT FNCEN$("Press <C> to continue.",40)
  431. 2155  A$=INKEY$:IF A$="" GOTO 2155
  432. 2160  IF A$="C" OR A$="c" GOTO 2170
  433. 2165  GOTO 2145
  434. 2170  GOSUB 30000         '** Textpad **
  435. 2175  PRINT FNCEN$("Next placement.",40)
  436. 2180  FOR K=1 TO 1500:NEXT K
  437. 2185  FOR V=80 TO 60 STEP -1
  438. 2190  LINE(151,60)-(160,V),0
  439. 2195  LINE-(169,60),0
  440. 2200  LINE(151,60)-(160,V)
  441. 2205  LINE-(169,60)
  442. 2210  PSET(160,V),0
  443. 2215  NEXT V
  444. 2220  FOR V=60 TO 40 STEP -1
  445. 2225  LINE(151,60)-(160,V)
  446. 2230  LINE-(169,60)
  447. 2235  PSET(160,V),0
  448. 2240  LINE(151,60)-(169,60),0
  449. 2245  NEXT V
  450. 2250  LINE(149,55)-(151,60),0
  451. 2255  LINE-(153,55),0
  452. 2260  LINE(171,55)-(169,60),0
  453. 2265  LINE-(167,55),0
  454. 2270  LINE(160,40)-(160,60),0
  455. 2275  FOR H=154 TO 166 STEP 2
  456. 2280  PSET(H,51),0
  457. 2285  NEXT H
  458. 2290  FOR K=1 TO 750:NEXT K
  459. 2295  GOSUB 30000         '** Textpad **
  460. 2300  PRINT FNCEN$("Press <C> to continue.",40)
  461. 2305  A$=INKEY$:IF A$="" GOTO 2305
  462. 2310  IF A$="C" OR A$="c" GOTO 2320
  463. 2315  GOTO 2295
  464. 2320  GOSUB 30000         '** Textpad **
  465. 2325  PRINT FNCEN$("Final placement.",40)
  466. 2330  FOR K=1 TO 1500:NEXT K
  467. 2335  FOR V=40 TO 50
  468. 2340  LINE(155,50)-(160,V),3
  469. 2345  LINE-(165,50),3
  470. 2350  LINE(155,50)-(160,V),0
  471. 2355  LINE-(165,50),0
  472. 2360  NEXT V
  473. 2365  FOR V=50 TO 60
  474. 2370  LINE(155,50)-(160,V),0
  475. 2375  LINE-(165,50),0
  476. 2380  LINE(155,50)-(160,V),3
  477. 2385  LINE-(165,50),3
  478. 2390  NEXT V
  479. 2395  LINE(155,50)-(160,60),0
  480. 2400  LINE-(165,50),0
  481. 2405  FOR V=50 TO 60 STEP 2
  482. 2410  PSET(160,V),0
  483. 2415  NEXT V
  484. 2420  GOSUB 30000         '** Textpad **
  485. 2425  PRINT FNCEN$("Press <C> to continue.",40)
  486. 2430  A$=INKEY$:IF A$="" GOTO 2430
  487. 2435  IF A$="C" OR A$="c" GOTO 2445
  488. 2440  GOTO 2420
  489. 2445  GOSUB 30000         '** Textpad **
  490. 2450  PRINT FNCEN$("We now take the left side of PUPPY",40)
  491. 2455  FOR K=1 TO 1500:NEXT K
  492. 2460  FOR K=1 TO 15
  493. 2465  LINE(160,50)-(155,50),0
  494. 2470  LINE-(153,55),0
  495. 2475  LINE-(149,55),0
  496. 2480  LINE-(115,130),0
  497. 2485  LINE-(160,170),0
  498. 2490  FOR M=1 TO 25:NEXT M
  499. 2495  LINE(160,50)-(155,50)
  500. 2500  LINE-(153,55)
  501. 2505  LINE-(149,55)
  502. 2510  LINE-(115,130)
  503. 2515  LINE-(160,170)
  504. 2520  NEXT K
  505. 2525  LINE(149,55)-(151,60),0
  506. 2530  LINE-(155,50),0
  507. 2535  FOR K=1 TO 750:NEXT K
  508. 2540  GOSUB 30000         '** Textpad **
  509. 2545  PRINT FNCEN$("over onto the right side,",40)
  510. 2550  FOR K=1 TO 1500:NEXT K
  511. 2555  FOR K=1 TO 15
  512. 2560  LINE(160,50)-(165,50),0
  513. 2565  LINE-(167,55),0
  514. 2570  LINE-(171,55),0
  515. 2575  LINE-(205,130),0
  516. 2580  LINE-(160,170),0
  517. 2585  FOR M=1 TO 25:NEXT M
  518. 2590  LINE(160,50)-(165,50)
  519. 2595  LINE-(167,55)
  520. 2600  LINE-(171,55)
  521. 2605  LINE-(205,130)
  522. 2610  LINE-(160,170)
  523. 2615  NEXT K
  524. 2620  LINE(171,55)-(169,60),0
  525. 2625  LINE-(165,50),0
  526. 2630  FOR K=1 TO 750:NEXT K
  527. 2635  GOSUB 30000         '** Textpad **
  528. 2640  PRINT FNCEN$("THUS!",40)
  529. 2645  FOR K=1 TO 750:NEXT K
  530. 2650  FOR Q=0 TO 45
  531. 2655  LINE(160,50)-(155+0.111*Q,50)
  532. 2660  LINE-(153+0.156*Q,55)
  533. 2665  LINE-(149+0.244*Q,55)
  534. 2670  LINE-(115+Q,130)
  535. 2675  LINE-(160,170)
  536. 2680  LINE(160,50)-(155+0.111*Q,50),0
  537. 2685  LINE-(153+0.156*Q,55),0
  538. 2690  LINE-(149+0.244*Q,55),0
  539. 2695  LINE-(115+Q,130),0
  540. 2700  LINE-(160,170),0
  541. 2705  NEXT Q
  542. 2710  FOR Q=0 TO 45
  543. 2715  LINE(160,50)-(160+0.089*Q,50),0
  544. 2720  LINE-(160+0.156*Q,55),0
  545. 2725  LINE-(160+0.244*Q,55),0
  546. 2730  LINE-(160+Q,130),0
  547. 2735  LINE-(160,170),0
  548. 2740  LINE(160,50)-(160+0.089*Q,50)
  549. 2745  LINE-(160+0.156*Q,55)
  550. 2750  LINE-(160+0.244*Q,55)
  551. 2755  LINE-(160+Q,130)
  552. 2760  LINE-(160,170)
  553. 2765  NEXT Q
  554. 2770  FOR H=160 TO 183 STEP 2
  555. 2775  PSET(H,80),0
  556. 2780  NEXT H
  557. 2785  LINE(160,54)-(167,54),0
  558. 2790  GOSUB 30000         '** Textpad **
  559. 2795  PRINT FNCEN$("There!",40)
  560. 2800  FOR K=1 TO 750:NEXT K
  561. 2805  GOSUB 30000         '** Textpad **
  562. 2810  PRINT FNCEN$("Press <C> to continue.",40)
  563. 2815  A$=INKEY$:IF A$="" GOTO 2815
  564. 2820  IF A$="C" OR A$="c" GOTO 2830
  565. 2825  GOTO 2805
  566. 2830  GOSUB 30000         '** Textpad **
  567. 2835  PRINT FNCEN$("One moment, please.",40)
  568. 2840  FOR K=1 TO 1500:NEXT K
  569. 2845  GOSUB 30000         '** Textpad **
  570. 2850  PRINT FNCEN$("This tippytoes position is not for me.",40)
  571. 2855  FOR K=1 TO 2000:NEXT K
  572. 2860                             '***Zapsound***
  573. 2865  FOR A=0 TO 20
  574. 2870  OUT 66,A:OUT 66,A
  575. 2875  OUT 97,(INP(97) OR 3)
  576. 2880  NEXT A
  577. 2885  SOUND 37,0
  578. 2890  CLS
  579. 2895                              '***End Zapsound***
  580. 2900              '*** start draw ***
  581. 2905  LINE(75,170)-(235,25)
  582. 2910  LINE-(240,30)
  583. 2915  LINE-(235,40)
  584. 2920  LINE-(240,45)
  585. 2925  LINE-(185,170)
  586. 2930  LINE-(75,170)
  587. 2935  PAINT(210,65)
  588. 2940  LINE(225,30)-(240,45),0
  589. 2945  LINE(190,65)-(220,90),0
  590. 2950  GOSUB 30000         '** Textpad **
  591. 2955  PRINT FNCEN$("There!  Now I feel more like myself.",40)
  592. 2960  FOR K=1 TO 1500:NEXT K
  593. 2965  GOSUB 30000         '** Textpad **
  594. 2970  PRINT FNCEN$("Here's the line for our next fold",40)
  595. 2975  FOR K=1 TO 1500:NEXT K
  596. 2980  LINE(190,65)-(196,145),0
  597. 2985  FOR K=1 TO 750:NEXT K
  598. 2990  GOSUB 30000         '** Textpad **
  599. 2995  PRINT FNCEN$("which takes this entire right side",40)
  600. 3000  FOR K=1 TO 750:NEXT K
  601. 3005  FOR K=1 TO 15
  602. 3010  LINE(190,65)-(235,25),0
  603. 3015  LINE-(240,30),0
  604. 3020  LINE-(235,40),0
  605. 3025  LINE-(240,45),0
  606. 3030  LINE-(196,145),0
  607. 3035  LINE-(190,65)
  608. 3040  FOR M=1 TO 25:NEXT M
  609. 3045  LINE(190,65)-(235,25)
  610. 3050  LINE-(240,30)
  611. 3055  LINE-(235,40)
  612. 3060  LINE-(240,45)
  613. 3065  LINE-(196,145)
  614. 3070  LINE-(190,65),0
  615. 3075  NEXT K
  616. 3080  FOR K=1 TO 750:NEXT K
  617. 3085  GOSUB 30000         '** Textpad **
  618. 3090  PRINT FNCEN$("over to the left side,",40)
  619. 3095  FOR K=1 TO 1500:NEXT K
  620. 3100  GOSUB 30000   '*** <Textpad> ***
  621. 3105  PRINT FNCEN$("* Hint *",40)
  622. 3110  FOR K=1 TO 1000:NEXT K
  623. 3115  PRINT FNCEN$("Our straightedge would be handy here.",40)
  624. 3120  FOR K=1 TO 1500:NEXT K
  625. 3125  GOSUB 30000   '*** Textpad ***
  626. 3130  PRINT FNCEN$("Press <C> to continue.",40)
  627. 3135  A$=INKEY$:IF A$="" GOTO 3135
  628. 3140  IF A$="C" OR A$="c" GOTO 3150
  629. 3145  GOTO 3100
  630. 3150  GOSUB 30000         '** Textpad **
  631. 3155  PRINT FNCEN$("SO!",40)
  632. 3160  FOR K=1 TO 750:NEXT K
  633. 3165  FOR Q=0 TO 54
  634. 3170  LINE(190,65)-(235-0.907*Q,25)
  635. 3175  LINE-(240-Q,30)
  636. 3180  LINE-(235-0.87*Q,40)
  637. 3185  LINE-(240-0.963*Q,45)
  638. 3190  LINE-(197,146),0
  639. 3195  LINE(235-0.907*Q,25)-(240-Q,30),0
  640. 3200  LINE-(235-0.87*Q,40),0
  641. 3205  LINE-(240-0.963*Q,45),0
  642. 3210  NEXT Q
  643. 3215  FOR Q=0 TO 53
  644. 3220  LINE(190,65)-(186-0.868*Q,25+0.094*Q)
  645. 3225  LINE-(186-0.962*Q,30+0.094*Q)
  646. 3230  LINE-(187-0.887*Q,40+0.094*Q)
  647. 3235  LINE-(188-Q,45+0.094*Q)
  648. 3240  LINE-(197,146),0
  649. 3245  LINE(187-Q,45+0.094*Q)-(197,146)
  650. 3250  LINE(188-Q,45+0.094*Q)-(197,146)
  651. 3255  LINE(189-Q,45+0.094*Q)-(197,146)
  652. 3260  LINE(190,65)-(186-0.868*Q,25+0.094*Q),0
  653. 3265  LINE(190,65)-(187-0.868*Q,25+0.094*Q),0
  654. 3270  PSET(191,64),0:PSET(191,65),0
  655. 3275  LINE(190,52)-(190,58),0
  656. 3280  NEXT Q
  657. 3285  PSET(134,50),0
  658. 3290  LINE(141,36)-(144,43)
  659. 3295  LINE(153,42)-(152,40)
  660. 3300  LINE(161,91)-(197,146),0
  661. 3305  LINE(135,50)-(150,35),0
  662. 3310  FOR K=1 TO 500:NEXT K
  663. 3315  GOSUB 30000         '** Textpad **
  664. 3320  PRINT FNCEN$("and return.",40)
  665. 3325  FOR K=1 TO 750:NEXT K
  666. 3330  FOR Q=0 TO 53
  667. 3335  LINE(190,65)-(140+0.868*Q,30-0.094*Q)
  668. 3340  LINE-(135+0.962*Q,35-0.094*Q)
  669. 3345  LINE-(140+0.887*Q,45-0.094*Q)
  670. 3350  LINE-(135+Q,50-0.094*Q)
  671. 3355  LINE(140+0.868*Q,30-0.094*Q)-(135+0.962*Q,35-0.094*Q),0
  672. 3360  LINE-(140+0.887*Q,45-0.094*Q),0
  673. 3365  LINE-(135+Q,50-0.094*Q),0
  674. 3370  LINE-(161+0.547*Q,91-0.491*Q),0
  675. 3375  LINE-(197,146),0
  676. 3380  LINE(139+0.868*Q,30-0.094*Q)-(134+0.962*Q,35-0.094*Q),0
  677. 3385  LINE-(139+0.887*Q,45-0.094*Q),0
  678. 3390  LINE-(134+Q,50-0.094*Q),0
  679. 3395  LINE-(160+0.547*Q,91-0.491*Q),0
  680. 3400  LINE(161+0.547*Q,91-0.491*Q)-(197,146)
  681. 3405  NEXT Q
  682. 3410  FOR Q=0 TO 54
  683. 3415  LINE(190,65)-(186+0.907*Q,25)
  684. 3420  LINE-(186+Q,30)
  685. 3425  LINE-(188+0.87*Q,40)
  686. 3430  LINE-(188+0.963*Q,45)
  687. 3435  LINE-(197,146)
  688. 3440  LINE(190,65)-(186+0.907*Q,25),0
  689. 3445  LINE(225,30)-(240,45),0
  690. 3450  LINE(190,65)-(220,90),0
  691. 3455  LINE(190,65)-(196,145),0
  692. 3460  LINE(186,32)-(189,61),0
  693. 3465  PSET(187,32),0
  694. 3470  PSET(186,30),0:PSET(186,31),0
  695. 3475  NEXT Q
  696. 3480  LINE(241,45)-(186,170),0
  697. 3485  LINE(242,45)-(187,170),0
  698. 3490  FOR K=1 TO 750:NEXT K
  699. 3495  GOSUB 30000   '** Textpad **
  700. 3500  PRINT FNCEN$("Your turn to fold and backfold.",40)
  701. 3505  FOR K=1 TO 1500:NEXT K
  702. 3510  GOSUB 30000       '*** Textpad ***
  703. 3515  PRINT FNCEN$("Press <R> to review.",40)
  704. 3520  FOR K=1 TO 1000:NEXT K
  705. 3525  PRINT FNCEN$("To continue, press <C>.",40)
  706. 3530  A$=INKEY$:IF A$="" GOTO 3530
  707. 3535  IF A$="r" OR A$="R" GOTO 3550
  708. 3540  IF A$="c" OR A$="C" GOTO 3570
  709. 3545  GOTO 3495
  710. 3550  GOSUB 30000         '** Textpad **
  711. 3555  PRINT FNCEN$("* Review *",40)
  712. 3560  FOR K=1 TO 750:NEXT K
  713. 3565  GOTO 2965
  714. 3570  GOSUB 30000         '** Textpad **
  715. 3575  PRINT FNCEN$("Our next fold takes PUPPY's muzzle",40)
  716. 3580  FOR K=1 TO 1500:NEXT K
  717. 3585                              '*** arrow down ***
  718. 3590  FOR K=1 TO 15
  719. 3595  PSET(248,30):DRAW"E5d4r7d2l7d4h5"
  720. 3600  PAINT(254,30)
  721. 3605  FOR M=1 TO 25:NEXT M
  722. 3610  FOR M=1 TO 25:NEXT M
  723. 3615  CIRCLE(254,30),7,0
  724. 3620  PAINT(254,30),0
  725. 3625  NEXT K
  726. 3630                              '***end arrow down ***
  727. 3635  FOR K=1 TO 750:NEXT K
  728. 3640  GOSUB 30000         '** Textpad **
  729. 3645  PRINT FNCEN$("in a HOOD FOLD",40)
  730. 3650  FOR K=1 TO 1500:NEXT K
  731. 3655  GOSUB 30000         '** Textpad **
  732. 3660  PRINT FNCEN$("down to this point",40)
  733. 3665  FOR K=1 TO 750:NEXT K
  734. 3670                                '*** flashdot ***
  735. 3675  FOR K=1 TO 15
  736. 3680  CIRCLE(235,105),5,3
  737. 3685  LINE(233,105)-(237,105),3
  738. 3690  LINE(235,103)-(235,107),3
  739. 3695  FOR M=1 TO 25:NEXT M
  740. 3700  CIRCLE(235,105),5,0
  741. 3705  LINE(233,105)-(237,105),0
  742. 3710  LINE(235,103)-(235,107),0
  743. 3715  NEXT K
  744. 3720  FOR K=1 TO 750:NEXT K
  745. 3725  GOSUB 30000         '** Textpad **
  746. 3730  PRINT FNCEN$("with this crease",40)
  747. 3735  FOR K=1 TO 750:NEXT K
  748. 3740  FOR K=1 TO 15
  749. 3745  LINE(190,65)-(196,145)
  750. 3750  FOR M=1 TO 25:NEXT M
  751. 3755  LINE(190,65)-(196,145),1
  752. 3760  NEXT K
  753. 3765  PSET(190,65),0
  754. 3770  FOR K=1 TO 750:NEXT K
  755. 3775  GOSUB 30000         '** Textpad **
  756. 3780  PRINT FNCEN$("staying where it is in a VALLEY FOLD",40)
  757. 3785  FOR K=1 TO 1500:NEXT K
  758. 3790  GOSUB 30000         '** Textpad **
  759. 3795  PRINT FNCEN$("and this crease",40)
  760. 3800  FOR K=1 TO 750:NEXT K
  761. 3805  FOR K=1 TO 15
  762. 3810  LINE(190,65)-(220,90)
  763. 3815  FOR M=1 TO 25:NEXT M
  764. 3820  LINE(190,65)-(220,90),2
  765. 3825  NEXT K
  766. 3830  FOR K=1 TO 750:NEXT K
  767. 3835  GOSUB 30000         '** Textpad **
  768. 3840  PRINT FNCEN$("and this edge",40)
  769. 3845  FOR K=1 TO 750:NEXT K
  770. 3850  FOR K=1 TO 15
  771. 3855  LINE(220,90)-(196,145)
  772. 3860  FOR M=1 TO 25:NEXT M
  773. 3865  LINE(220,90)-(196,145),2
  774. 3870  NEXT K
  775. 3875  FOR K=1 TO 750:NEXT K
  776. 3880  GOSUB 30000         '** Textpad **
  777. 3885  PRINT FNCEN$("folding over to here",40)
  778. 3890  FOR K=1 TO 750:NEXT K
  779. 3895  FOR K=1 TO 15
  780. 3900  LINE(190,65)-(161,91)
  781. 3905  LINE-(196,145)
  782. 3910  FOR M=1 TO 25:NEXT M
  783. 3915  LINE(190,65)-(161,91),2
  784. 3920  LINE-(196,145),2
  785. 3925  NEXT K
  786. 3930  FOR K=1 TO 750:NEXT K
  787. 3935  GOSUB 30000         '** Textpad **
  788. 3940  PRINT FNCEN$("in a MOUNTAIN FOLD,",40)
  789. 3945  FOR K=1 TO 750:NEXT K
  790. 3950  GOSUB 30000         '** Textpad **
  791. 3955  PRINT FNCEN$("THUS!",40)
  792. 3960  FOR K=1 TO 750:NEXT K
  793. 3965  LINE(190,65)-(161,91)
  794. 3970  LINE-(196,145)
  795. 3975  LINE(190,65)-(196,145),0
  796. 3980  FOR Q=0 TO 43
  797. 3985  LINE(190,65)-(235+0.535*Q,25+0.93*Q)
  798. 3990  LINE-(240+0.419*Q,30+Q)
  799. 3995  LINE-(235+0.163*Q,40+0.86*Q)
  800. 4000  LINE-(240+0.047*Q,45+0.884*Q)
  801. 4005  LINE-(220-0.651*Q,90)   'culprit
  802. 4010  LINE-(196,145)
  803. 4015  LINE(240+0.047*Q,45+0.884*Q)-(220-0.651*Q,90+0.279*Q),0
  804. 4020  LINE(190,65)-(220-0.628*Q,90+0.279*Q),2
  805. 4025  LINE-(196,145),2
  806. 4030  LINE(190,65)-(220-0.628*Q,90+0.279*Q)
  807. 4035  LINE(190,65)-(235+0.535*Q,25+0.93*Q),0
  808. 4040  LINE(190,64)-(236+0.535*Q,24+0.93*Q),0
  809. 4045  LINE(190,63)-(237+0.535*Q,23+0.93*Q),0
  810. 4050  LINE(190,62)-(238+0.535*Q,22+0.93*Q),0
  811. 4055  LINE(200,137)-(218,96),0
  812. 4060  LINE(220-0.628*Q,90+0.279*Q)-(196,145),0
  813. 4065  LINE(193,102)-(240+0.05*Q,45+0.88*Q)
  814. 4070  PSET(225,80),0:PSET(221,89),0:PSET(222,87),0
  815. 4075  NEXT Q
  816. 4080  LINE(191,66)-(258,73),3,BF
  817. 4085  LINE(256,72)-(244,75)
  818. 4090  LINE(201,97)-(222,87)
  819. 4095  LINE(190,65)-(196,145),0
  820. 4100  LINE(190,66)-(258,66)  'ok
  821. 4105  LINE-(258,73)
  822. 4110  LINE-(242,77)
  823. 4115  LINE-(242,83)
  824. 4120  LINE-(192,102)
  825. 4125  LINE(243,65)-(243,83),0
  826. 4130  LINE(195,100)-(229,86)
  827. 4135  PSET(225,80):PSET(210,92)
  828. 4140  PSET(212,91):PSET(225,87):PSET(226,86)
  829. 4145  FOR Q=0 TO 40
  830. 4150  LINE(190,65)-(258-0.575*Q,65+Q)
  831. 4155  LINE-(258-0.67*Q,73+0.925*Q)
  832. 4160  LINE-(242-0.55*Q,77+0.7*Q)
  833. 4165  LINE-(242-0.675*Q,83+0.675*Q)
  834. 4170  LINE-(192-0.775*Q,102-0.25*Q)
  835. 4175  LINE(242-0.675*Q,83+0.675*Q)-(192,102)
  836. 4180  LINE(190,65)-(258-0.575*Q,65+Q),0
  837. 4185  LINE-(258-0.67*Q,73+0.925*Q),0
  838. 4190  LINE(190,64)-(259-0.575*Q,64+Q),0
  839. 4195  LINE-(259-0.67*Q,73+0.925*Q),0
  840. 4200  LINE(190,65)-(192-0.775*Q,102-0.25*Q),2
  841. 4205  LINE-(196,145),2
  842. 4210  LINE(190,64)-(258-0.575*Q,64+Q),0
  843. 4215  LINE(190,65)-(192-0.775*Q,102-0.25*Q)
  844. 4220  LINE-(196,145)
  845. 4225  LINE(192,103)-(192-0.775*Q,103-0.275*Q),0
  846. 4230  LINE(191,72)-(192,90)
  847. 4235  PSET(192,91):PSET(192,92)
  848. 4240  LINE(193,104)-(196,145),1
  849. 4245  NEXT Q
  850. 4250  LINE(208,100)-(227,105),3,BF
  851. 4255  LINE(227,97)-(234,103),0
  852. 4260  LINE(161,91)-(192,102),3,BF
  853. 4265  LINE(192,103)-(160,92),2
  854. 4270  LINE-(196,145),2
  855. 4275  LINE(216,107)-(214,109)
  856. 4280  PSET(248,78),0:PSET(245,85),0:PSET(234,94),0:PSET(236,95),0:PSET(237,96),0:PSET(229,105):PSET(232,106):PSET(231,108)
  857. 4285  PAINT(240,85),0
  858. 4290  LINE(230,109)-(224,106)
  859. 4295  LINE(190,65)-(235,105)
  860. 4300  LINE-(230,110)
  861. 4305  PSET(227,99):PSET(212,106):PSET(211,108)
  862. 4310  LINE(221,105)-(228,98),0
  863. 4315  FOR K=1 TO 1500:NEXT K
  864. 4320  LINE(193,104)-(196,145)
  865. 4325  LINE(192,103)-(160,92),0
  866. 4330  LINE-(196,145),0
  867. 4335  GOSUB 30000       '*** Textpad ***
  868. 4340  PRINT FNCEN$("Press <R> to review.",40)
  869. 4345  FOR K=1 TO 1000:NEXT K
  870. 4350  PRINT FNCEN$("To continue, press <C>.",40)
  871. 4355  A$=INKEY$:IF A$="" GOTO 4355
  872. 4360  IF A$="r" OR A$="R" GOTO 4375
  873. 4365  IF A$="c" OR A$="C" GOTO 4485
  874. 4370  GOTO 4335
  875. 4375  GOTO 4380
  876. 4380  GOSUB 30000       '*** Textpad ***
  877. 4385  PRINT FNCEN$("* Review *",40)
  878. 4390  FOR K=1 TO 750:NEXT K
  879. 4395  FOR A=0 TO 20
  880. 4400  OUT 66,A:OUT 66,A
  881. 4405  OUT 97,(INP(97) OR 3)
  882. 4410  NEXT A
  883. 4415  SOUND 37,0
  884. 4420  CLS
  885. 4425  LINE(75,170)-(235,25)
  886. 4430  LINE-(240,30)
  887. 4435  LINE-(235,40)
  888. 4440  LINE-(240,45)
  889. 4445  LINE-(185,170)
  890. 4450  LINE-(75,170)
  891. 4455  PAINT(210,65)
  892. 4460  LINE(227,32)-(240,45),2
  893. 4465  LINE(190,65)-(220,90),0
  894. 4470  LINE(190,65)-(196,145),0
  895. 4475  LINE(227,32)-(240,45),0
  896. 4480  GOTO 3570
  897. 4485  GOSUB 30000       '*** Textpad ***
  898. 4490  PRINT FNCEN$("For PUP's hind end, we fold",40)
  899. 4495  FOR K=1 TO 1500:NEXT K
  900. 4500  GOSUB 30000       '*** Textpad ***
  901. 4505  PRINT FNCEN$("and backfold this corner",40)
  902. 4510  FOR K=1 TO 750:NEXT K
  903. 4515                              '*** arrow right ***
  904. 4520  FOR K=1 TO 15
  905. 4525  PSET(67,170):DRAW"H5D4L7D2R7D4E5"
  906. 4530  PAINT(61,170)
  907. 4535  FOR M=1 TO 25:NEXT M
  908. 4540  CIRCLE(61,170),7,0
  909. 4545  PAINT(61,170),0
  910. 4550  NEXT K
  911. 4555                              '***end arrow right ***
  912. 4560  FOR K=1 TO 750:NEXT K
  913. 4565  GOSUB 30000       '*** Textpad ***
  914. 4570  PRINT FNCEN$("over to this corner,",40)
  915. 4575  FOR K=1 TO 750:NEXT K
  916. 4580                              '*** arrow left ***
  917. 4585  FOR K=1 TO 15
  918. 4590  PSET(193,170):DRAW"E5D4R7D2L7D4H5"
  919. 4595  PAINT(199,170)
  920. 4600  FOR M=1 TO 25:NEXT M
  921. 4605  CIRCLE(199,170),7,0
  922. 4610  PAINT(199,170),0
  923. 4615  NEXT K
  924. 4620  FOR K=1 TO 750:NEXT K
  925. 4625                              '***end arrow left ***
  926. 4630  GOSUB 30000       '*** Textpad ***
  927. 4635  PRINT FNCEN$("THUS!",40)
  928. 4640  FOR K=1 TO 750:NEXT K
  929. 4645  FOR V=120 TO 170 STEP 2
  930. 4650  PSET(130,V),0
  931. 4655  NEXT V
  932. 4660  FOR K=1 TO 750:NEXT K
  933. 4665  FOR H=75 TO 130
  934. 4670  LINE(130,120)-(H,170)
  935. 4675  LINE-(130,170)
  936. 4680  LINE(130,120)-(H,170),0
  937. 4685  LINE-(130,170),0
  938. 4690  NEXT H
  939. 4695  FOR H=130 TO 185
  940. 4700  LINE(130,120)-(H,170),0
  941. 4705  LINE-(130,170),0
  942. 4710  LINE(130,120)-(H,170)
  943. 4715  LINE-(130,170)
  944. 4720  NEXT H
  945. 4725  LINE(130,120)-(185,170),0
  946. 4730  FOR K=1 TO 750:NEXT K
  947. 4735  GOSUB 30000       '*** Textpad ***LIST 10210
  948. 4740  PRINT FNCEN$("and return.",40)
  949. 4745  FOR K=1 TO 750:NEXT K
  950. 4750  FOR H=185 TO 130 STEP -1
  951. 4755  LINE(130,120)-(H,170),0
  952. 4760  LINE-(130,170),0
  953. 4765  LINE(130,120)-(H,170)
  954. 4770  LINE-(130,170)
  955. 4775  NEXT H
  956. 4780  FOR V=119 TO 170 STEP 2
  957. 4785  PSET(131,V),0
  958. 4790  NEXT V
  959. 4795  FOR H=130 TO 75 STEP -1
  960. 4800  LINE(130,120)-(H,170)
  961. 4805  LINE-(130,170)
  962. 4810  NEXT H
  963. 4815  FOR K=1 TO 750:NEXT K
  964. 4820  GOSUB 30000   '** Textpad **
  965. 4825  PRINT FNCEN$("Your turn to fold and backfold.",40)
  966. 4830  FOR K=1 TO 1500:NEXT K
  967. 4835  GOSUB 30000       '*** Textpad ***
  968. 4840  PRINT FNCEN$("Press <R> to review.",40)
  969. 4845  FOR K=1 TO 1000:NEXT K
  970. 4850  PRINT FNCEN$("To continue, press <C>.",40)
  971. 4855  A$=INKEY$:IF A$="" GOTO 4855
  972. 4860  IF A$="r" OR A$="R" GOTO 4875
  973. 4865  IF A$="c" OR A$="C" GOTO 4900
  974. 4870  GOTO 4820
  975. 4875  LINE(131,120)-(131,170)
  976. 4880  GOSUB 30000         '** Textpad **
  977. 4885  PRINT FNCEN$("* Review *",40)
  978. 4890  FOR K=1 TO 750:NEXT K
  979. 4895  GOTO 4485
  980. 4900  GOSUB 30000       '*** Textpad ***
  981. 4905  PRINT FNCEN$("For PUPPY's tail, we fold",40)
  982. 4910  FOR K=1 TO 1500:NEXT K
  983. 4915  GOSUB 30000       '*** Textpad ***
  984. 4920  PRINT FNCEN$("and backfold this corner",40)
  985. 4925  FOR K=1 TO 750:NEXT K
  986. 4930  FOR K=1 TO 15
  987. 4935  PSET(67,170):DRAW"H5D4L7D2R7D4E5"
  988. 4940  PAINT(61,170)
  989. 4945  FOR M=1 TO 25:NEXT M
  990. 4950  CIRCLE(61,170),7,0
  991. 4955  PAINT(61,170),0
  992. 4960  NEXT K
  993. 4965                             '***end arrow right ***
  994. 4970  FOR K=1 TO 750:NEXT K
  995. 4975  GOSUB 30000       '*** Textpad ***
  996. 4980  PRINT FNCEN$("over to this point,",40)
  997. 4985  FOR K=1 TO 750:NEXT K
  998. 4990                               '*** flashdot ***
  999. 4995  FOR K=1 TO 15
  1000. 5000  CIRCLE(165,135),5,0
  1001. 5005  LINE(163,135)-(167,135),0
  1002. 5010  LINE(165,133)-(165,137),0
  1003. 5015  FOR M=1 TO 25:NEXT M
  1004. 5020  CIRCLE(165,135),5
  1005. 5025  LINE(163,135)-(167,135)
  1006. 5030  LINE(165,133)-(165,137)
  1007. 5035  NEXT K
  1008. 5040  FOR K=1 TO 750:NEXT K
  1009. 5045  GOSUB 30000       '*** Textpad ***
  1010. 5050  PRINT FNCEN$("THUS!",40)
  1011. 5055  FOR K=1 TO 750:NEXT K
  1012. 5060  LINE(113,135)-(130,170),0
  1013. 5065  FOR K=1 TO 750:NEXT K
  1014. 5070  FOR Q=0 TO 46
  1015. 5075  LINE(113,135)-(75+Q,170-0.39*Q)
  1016. 5080  LINE-(130,170)
  1017. 5085  LINE(113,135)-(75+Q,170-0.39*Q),0
  1018. 5090  LINE-(130,170),0
  1019. 5095  LINE(113,135)-(74+Q,170-0.39*Q),0
  1020. 5100  LINE-(130,170),0
  1021. 5105  NEXT Q
  1022. 5110  FOR Q=0 TO 44
  1023. 5115  LINE(113,135)-(121+Q,152-0.39*Q),0
  1024. 5120  LINE-(130,170),0
  1025. 5125  LINE(113,135)-(121+Q,152-0.39*Q)
  1026. 5130  LINE-(130,170)
  1027. 5135  PSET(130,146)
  1028. 5140  NEXT Q
  1029. 5145  LINE(113,135)-(165,135),0
  1030. 5150  LINE-(130,170),0
  1031. 5155  FOR K=1 TO 750:NEXT K
  1032. 5160  GOSUB 30000         '** Textpad **
  1033. 5165  PRINT FNCEN$("Note that this edge",40)
  1034. 5170  FOR K=1 TO 750:NEXT K
  1035. 5175  PSET(105,135):DRAW"H5D4L7D2R7D4E5
  1036. 5180  PAINT(99,135)
  1037. 5185  FOR K=1 TO 1000:NEXT K
  1038. 5190  FOR K=1 TO 15
  1039. 5195  LINE(114,135)-(164,135)
  1040. 5200  FOR M=1 TO 25:NEXT M
  1041. 5205  LINE(114,135)-(164,135),2
  1042. 5210  NEXT K
  1043. 5215  FOR K=1 TO 750:NEXT K
  1044. 5220  CIRCLE(99,135),7,0
  1045. 5225  PAINT(99,135),0
  1046. 5230  GOSUB 30000         '** Textpad **
  1047. 5235  PRINT FNCEN$("is parallel to this edge.",40)
  1048. 5240  FOR K=1 TO 750:NEXT K
  1049. 5245  PSET(122,170):DRAW"H5D4L7D2R7D4E5
  1050. 5250  PAINT(116,170)
  1051. 5255  FOR K=1 TO 1000:NEXT K
  1052. 5260  FOR K=1 TO 15
  1053. 5265  LINE(130,170)-(185,170)
  1054. 5270  FOR M=1 TO 25:NEXT M
  1055. 5275  LINE(130,170)-(185,170),2
  1056. 5280  NEXT K
  1057. 5285  FOR K=1 TO 750:NEXT K
  1058. 5290  CIRCLE(116,170),7,0
  1059. 5295  PAINT(116,170),0
  1060. 5300  FOR K=1 TO 750:NEXT K
  1061. 5305  LINE(130,170)-(185,170)
  1062. 5310  LINE(115,135)-(165,135),0
  1063. 5315  GOSUB 30000       '*** Textpad ***
  1064. 5320  PRINT FNCEN$("and return.",40)
  1065. 5325  FOR K=1 TO 750:NEXT K
  1066. 5330  FOR Q=0 TO 44
  1067. 5335  LINE(113,135)-(165-Q,135+0.39*Q),0
  1068. 5340  LINE-(130,170),0
  1069. 5345  LINE(113,135)-(165-Q,135+0.39*Q)
  1070. 5350  LINE-(130,170)
  1071. 5355  NEXT Q
  1072. 5360  FOR V=119 TO 170 STEP 2
  1073. 5365  PSET(131,V),0
  1074. 5370  NEXT V
  1075. 5375  FOR Q=0 TO 46
  1076. 5380  LINE(113,135)-(121-Q,152+0.39*Q)
  1077. 5385  LINE-(130,170)
  1078. 5390  LINE(113,135)-(122-Q,152+0.39*Q)
  1079. 5395  LINE-(130,170)
  1080. 5400  LINE(113,135)-(130,170),0
  1081. 5405  NEXT Q
  1082. 5410  FOR K=1 TO 1500:NEXT K
  1083. 5415  GOSUB 30000   '** Textpad **
  1084. 5420  PRINT FNCEN$("Your turn to fold and backfold.",40)
  1085. 5425  FOR K=1 TO 1500:NEXT K
  1086. 5430  GOSUB 30000       '*** Textpad ***
  1087. 5435  PRINT FNCEN$("Press <R> to review.",40)
  1088. 5440  FOR K=1 TO 1000:NEXT K
  1089. 5445  PRINT FNCEN$("To continue, press <C>.",40)
  1090. 5450  A$=INKEY$:IF A$="" GOTO 5450
  1091. 5455  IF A$="r" OR A$="R" GOTO 5470
  1092. 5460  IF A$="c" OR A$="C" GOTO 5495
  1093. 5465  GOTO 5415
  1094. 5470  LINE(113,135)-(130,170)
  1095. 5475  GOSUB 30000   '** Textpad **
  1096. 5480  PRINT FNCEN$("* Review *",40)
  1097. 5485  FOR K=1 TO 1500:NEXT K
  1098. 5490  GOTO 4900
  1099. 5495  GOSUB 30000         '** Textpad **
  1100. 5500  PRINT FNCEN$("We next tuck PUPPY's hind parts",40)
  1101. 5505  FOR K=1 TO 1500:NEXT K
  1102. 5510  PSET(95,140):DRAW"U8G3H6G2F6G3R8"
  1103. 5515  PAINT(90,135)
  1104. 5520  FOR K=1 TO 250:NEXT K
  1105. 5525  FOR K=1 TO 15
  1106. 5530  LINE(130,120)-(75,170),0
  1107. 5535  LINE-(130,170),0
  1108. 5540  FOR M=1 TO 25:NEXT M
  1109. 5545  LINE(130,120)-(75,170)
  1110. 5550  LINE-(130,170)
  1111. 5555  NEXT K
  1112. 5560  CIRCLE(90,135),9,0
  1113. 5565  PAINT(90,135),0
  1114. 5570  FOR K=1 TO 750:NEXT K
  1115. 5575  GOSUB 30000         '** Textpad **
  1116. 5580  PRINT FNCEN$("into this pocket",40)
  1117. 5585  FOR K=1 TO 750:NEXT K
  1118. 5590  LINE(75,170)-(175,175)
  1119. 5595  LINE-(180,170)
  1120. 5600  FOR K=1 TO 15
  1121. 5605  PSET(160,178):DRAW"g5r4d7r2u7r4h5"
  1122. 5610  PAINT(160,184)
  1123. 5615  FOR M=1 TO 25:NEXT M
  1124. 5620  CIRCLE(160,184),7,0
  1125. 5625  PAINT(160,184),0
  1126. 5630  NEXT K
  1127. 5635  FOR K=1 TO 750:NEXT K
  1128. 5640  GOSUB 30000   '** Textpad **
  1129. 5645  PRINT FNCEN$("in an INSIDE REVERSE FOLD,",40)
  1130. 5650  FOR K=1 TO 1500:NEXT K
  1131. 5655  GOSUB 30000   '** Textpad **
  1132. 5660  PRINT FNCEN$("THUS!",40)
  1133. 5665  FOR K=1 TO 750:NEXT K
  1134. 5670  FOR A=0 TO 20
  1135. 5675  OUT 66,A:OUT 66,A
  1136. 5680  OUT 97,(INP(97) OR 3)
  1137. 5685  NEXT A
  1138. 5690  SOUND 37,0
  1139. 5695  LINE(75,171)-(180,175),0,BF
  1140. 5700  LINE(113,135)-(130,169)
  1141. 5705  LINE(131,120)-(131,169)
  1142. 5710  LINE(75,120)-(129,170),0,BF
  1143. 5715  LINE(130,120)-(185,170),1
  1144. 5720  'LINE(146,134)-(130,170),1
  1145. 5725  FOR K=1 TO 750:NEXT K
  1146. 5730  GOSUB 30000   '** Textpad **
  1147. 5735  PRINT FNCEN$("Would you like to see that fold again?",40)
  1148. 5740  FOR K=1 TO 1500:NEXT K
  1149. 5745  GOSUB 30000       '*** Textpad ***
  1150. 5750  PRINT FNCEN$("If so, press <R>.",40)
  1151. 5755  FOR K=1 TO 1000:NEXT K
  1152. 5760  PRINT FNCEN$("To continue, press <C>.",40)
  1153. 5765  A$=INKEY$:IF A$="" GOTO 5765
  1154. 5770  IF A$="r" OR A$="R" GOTO 5785
  1155. 5775  IF A$="c" OR A$="C" GOTO 5875
  1156. 5780  GOTO 5730
  1157. 5785  FOR A=0 TO 20
  1158. 5790  OUT 66,A:OUT 66,A
  1159. 5795  OUT 97,(INP(97) OR 3)
  1160. 5800  NEXT A
  1161. 5805  SOUND 37,0
  1162. 5810  LINE(130,120)-(185,170)
  1163. 5815  LINE(146,134)-(130,170)
  1164. 5820  LINE(130,120)-(75,170)
  1165. 5825  LINE-(135,170)
  1166. 5830  PAINT(120,145)
  1167. 5835  LINE(113,135)-(130,170),0
  1168. 5840  FOR V=119 TO 170 STEP 2
  1169. 5845  PSET(131,V),0
  1170. 5850  NEXT V
  1171. 5855  GOSUB 30000   '** Textpad **
  1172. 5860  PRINT FNCEN$("* Review *",40)
  1173. 5865  FOR K=1 TO 1500:NEXT K
  1174. 5870  GOTO 5495
  1175. 5875  GOSUB 30000         '** Textpad **
  1176. 5880  PRINT FNCEN$("We now pull PUP's tail out.",40)
  1177. 5885  FOR K=1 TO 750:NEXT K
  1178. 5890  LINE(146,134)-(130,170),1
  1179. 5895  FOR Q=0 TO 47
  1180. 5900  LINE(147,135)-(185-Q,170-0.38*Q),1
  1181. 5905  LINE-(130,170),1
  1182. 5910  LINE(147,135)-(185-Q,170-0.38*Q)
  1183. 5915  LINE-(130,170)
  1184. 5920  NEXT Q
  1185. 5925  FOR Q=0 TO 43
  1186. 5930  LINE(147,135)-(138-Q,152-0.4*Q),1
  1187. 5935  LINE-(130,170),1
  1188. 5940  LINE(147,135)-(138-Q,152-0.4*Q)
  1189. 5945  LINE-(130,170)
  1190. 5950  LINE(148,135)-(138-Q,152-0.4*Q)
  1191. 5955  LINE-(131,170)
  1192. 5960  LINE(147,135)-(130,170),1
  1193. 5965  LINE(129,120)-(129,170),0
  1194. 5970  NEXT Q
  1195. 5975  LINE(130,135)-(146,135),1
  1196. 5980  LINE(113,140)-(127,147)
  1197. 5985  PSET(124,143)
  1198. 5990  FOR K=1 TO 750:NEXT K
  1199. 5995  GOSUB 30000         '** Textpad **
  1200. 6000  PRINT FNCEN$("Press <R> to review.",40)
  1201. 6005  FOR K=1 TO 1000:NEXT K
  1202. 6010  PRINT FNCEN$("To continue, press <C>.",40)
  1203. 6015  A$=INKEY$:IF A$="" GOTO 6015
  1204. 6020  IF A$="R" OR A$="r" GOTO 6035
  1205. 6025  IF A$="C" OR A$="c" GOTO 6095
  1206. 6030  GOTO 5995
  1207. 6035  FOR A=0 TO 20
  1208. 6040  OUT 66,A:OUT 66,A
  1209. 6045  OUT 97,(INP(97) OR 3)
  1210. 6050  NEXT A
  1211. 6055  SOUND 37,0
  1212. 6060  LINE(95,120)-(129,170),0,BF
  1213. 6065  LINE(130,120)-(150,170),3,BF
  1214. 6070  LINE(130,120)-(185,170),1
  1215. 6075  GOSUB 30000         '** Textpad **
  1216. 6080  PRINT FNCEN$("* Review *",40)
  1217. 6085  FOR K=1 TO 1500:NEXT K
  1218. 6090  GOTO 5875
  1219. 6095  GOSUB 30000         '** Textpad **
  1220. 6100  PRINT FNCEN$("Next, we fold and backfold this corner",40)
  1221. 6105  LINE(130,120)-(150,170),3,BF
  1222. 6110  FOR K=1 TO 750:NEXT K
  1223. 6115  FOR K=1 TO 15
  1224. 6120  PSET(87,135):DRAW"H5D4L7D2R7D4E5"
  1225. 6125  PAINT(81,135)
  1226. 6130  FOR M=1 TO 25:NEXT M
  1227. 6135  CIRCLE(81,135),7,0
  1228. 6140  PAINT(81,135),0
  1229. 6145  NEXT K
  1230. 6150  FOR K=1 TO 750:NEXT K
  1231. 6155  GOSUB 30000         '** Textpad **
  1232. 6160  PRINT FNCEN$("down along this line",40)
  1233. 6165  FOR K=1 TO 750:NEXT K
  1234. 6170  LINE(129,135)-(112,152),0
  1235. 6175  FOR K=1 TO 750:NEXT K
  1236. 6180  GOSUB 30000         '** Textpad **
  1237. 6185  PRINT FNCEN$("over to here,",40)
  1238. 6190  FOR K=1 TO 750:NEXT K
  1239. 6195  FOR K=1 TO 15
  1240. 6200  PSET(130,178):DRAW"g5r4d7r2u7r4h5"
  1241. 6205  PAINT(130,184)
  1242. 6210  FOR M=1 TO 25:NEXT M
  1243. 6215  CIRCLE(130,184),7,0
  1244. 6220  PAINT(130,184),0
  1245. 6225  NEXT K
  1246. 6230  FOR K=1 TO 750:NEXT K
  1247. 6235  GOSUB 30000         '** Textpad **
  1248. 6240  PRINT FNCEN$("SO!",40)
  1249. 6245  FOR K=1 TO 750:NEXT K
  1250. 6250  FOR Q=0 TO 17
  1251. 6255  LINE(129,135)-(95+Q,135+Q),0
  1252. 6260  LINE-(111,153),0
  1253. 6265  LINE(129,135)-(94+Q,135+Q),0
  1254. 6270  LINE-(111,153),0
  1255. 6275  FOR M=1 TO 50:NEXT M
  1256. 6280  NEXT Q
  1257. 6285  FOR Q=0 TO 18
  1258. 6290  LINE(129,135)-(113+Q,152+0.94*Q),0
  1259. 6295  LINE-(111,153),0
  1260. 6300  LINE(129,135)-(113+Q,152+0.94*Q)
  1261. 6305  LINE-(111,153)
  1262. 6310  LINE(129,135)-(112+Q,152+0.94*Q)
  1263. 6315  LINE-(111,153)
  1264. 6320  FOR M=1 TO 50:NEXT M
  1265. 6325  NEXT Q
  1266. 6330  LINE(129,135)-(129,170),0
  1267. 6335  FOR K=1 TO 250:NEXT K
  1268. 6340  GOSUB 30000         '** Textpad **
  1269. 6345  PRINT FNCEN$("and return!",40)
  1270. 6350  FOR K=1 TO 750:NEXT K
  1271. 6355  FOR Q=0 TO 35
  1272. 6360  LINE(129,135)-(128-0.97*Q,170-Q),0
  1273. 6365  LINE-(111,153),0
  1274. 6370  LINE(129,135)-(128-0.97*Q,170-Q)
  1275. 6375  LINE-(111,153)
  1276. 6380  LINE(129,135)-(129-0.97*Q,170-Q)
  1277. 6385  LINE-(111,153)
  1278. 6390  FOR M=1 TO 50:NEXT M
  1279. 6395  LINE(129,135)-(111,153),0
  1280. 6400  LINE(129,135)-(129,170),0
  1281. 6405  NEXT Q
  1282. 6410  FOR K=1 TO 750:NEXT K
  1283. 6415  GOSUB 30000   '** Textpad **
  1284. 6420  PRINT FNCEN$("Your turn to fold and backfold.",40)
  1285. 6425  FOR K=1 TO 1500:NEXT K
  1286. 6430  GOSUB 30000       '*** Textpad ***
  1287. 6435  PRINT FNCEN$("Press <R> to review.",40)
  1288. 6440  FOR K=1 TO 1000:NEXT K
  1289. 6445  PRINT FNCEN$("To continue, press <C>.",40)
  1290. 6450  A$=INKEY$:IF A$="" GOTO 6450
  1291. 6455  IF A$="r" OR A$="R" GOTO 6470
  1292. 6460  IF A$="c" OR A$="C" GOTO 6495
  1293. 6465  GOTO 6415
  1294. 6470  LINE(129,135)-(112,152)
  1295. 6475  GOSUB 30000   '** Textpad **
  1296. 6480  PRINT FNCEN$("* Review *",40)
  1297. 6485  FOR K=1 TO 1500:NEXT K
  1298. 6490  GOTO 6095
  1299. 6495  GOSUB 30000         '** Textpad **
  1300. 6500  PRINT FNCEN$("Our final fold takes this corner",40)
  1301. 6505  FOR K=1 TO 750:NEXT K
  1302. 6510                              '*** arrow right ***
  1303. 6515  FOR K=1 TO 15
  1304. 6520  PSET(87,135):DRAW"H5D4L7D2R7D4E5"
  1305. 6525  PAINT(81,135)
  1306. 6530  FOR M=1 TO 25:NEXT M
  1307. 6535  CIRCLE(81,135),7,0
  1308. 6540  PAINT(81,135),0
  1309. 6545  NEXT K
  1310. 6550                              '***end arrow right ***
  1311. 6555  FOR K=1 TO 750:NEXT K
  1312. 6560  GOSUB 30000         '** Textpad **
  1313. 6565  PRINT FNCEN$("UP!",40)
  1314. 6570  LINE(94,135)-(128,170),0
  1315. 6575  LINE(129,135)-(112,152),0
  1316. 6580  LINE(103,145)-(110,152),0
  1317. 6585  LINE(98,135)-(102,144),0
  1318. 6590  LINE(93,135)-(102,143),0
  1319. 6595  LINE(98,140)-(101,143),0
  1320. 6600  FOR H=95 TO 129
  1321. 6605  LINE(129,135)-(H,135),0
  1322. 6610  LINE-(129,170),0
  1323. 6615  FOR M=1 TO 50:NEXT M
  1324. 6620  NEXT H
  1325. 6625  LINE(128,135)-(125,170)
  1326. 6630  PSET(129,135)
  1327. 6635  FOR K=1 TO 750:NEXT K
  1328. 6640  GOSUB 30000      '*** Textpad ***
  1329. 6645  PRINT FNCEN$("so that it is pointing straight at us,",40)
  1330. 6650  FOR K=1 TO 1500:NEXT K
  1331. 6655  GOSUB 30000         '** Textpad **
  1332. 6660  PRINT FNCEN$("Press <C> to continue.",40)
  1333. 6665  A$=INKEY$:IF A$="" GOTO 6665
  1334. 6670  IF A$="C" OR A$="c" GOTO 6680
  1335. 6675  GOTO 6655
  1336. 6680  GOSUB 30000      '*** Textpad ***
  1337. 6685  PRINT FNCEN$("and SQUASH!",40)
  1338. 6690  FOR K=1 TO 750:NEXT K
  1339. 6695  LINE(125,135)-(129,170),0,BF
  1340. 6700  FOR Q=0 TO 35
  1341. 6705  LINE(130,135+Q)-(130,170),0
  1342. 6710  LINE(130,135)-(130-0.51*Q,152)
  1343. 6715  LINE-(130,170)
  1344. 6720  LINE(130-0.51*Q,152)-(130,135+Q)
  1345. 6725  LINE(130-0.51*Q,152)-(130,134+Q),0
  1346. 6730  LINE(130-0.51*Q,152)-(130,133+Q),0
  1347. 6735  LINE(130-0.51*Q,152)-(130,132+Q)
  1348. 6740  LINE(130+0.51*Q,152)-(130,135+Q)
  1349. 6745  LINE(130+0.51*Q,152)-(130,134+Q),0
  1350. 6750  LINE(130+0.51*Q,152)-(130,133+Q),0
  1351. 6755  LINE(130+0.51*Q,152)-(130,132+Q)
  1352. 6760  LINE(130,135)-(130+0.51*Q,152),0
  1353. 6765  LINE(130,135)-(129+0.51*Q,152)
  1354. 6770  LINE(130,170)-(130+0.51*Q,152),0
  1355. 6775  LINE(130,170)-(129+0.51*Q,152)
  1356. 6780  NEXT Q
  1357. 6785  LINE(112,152)-(130,170)
  1358. 6790  LINE(122,161)-(130,169)
  1359. 6795  LINE-(137,162)
  1360. 6800  LINE(140,144)-(148,152)
  1361. 6805  LINE-(139,161)
  1362. 6810  LINE(128,166)-(130,168)
  1363. 6815  LINE-(132,166)
  1364. 6820  FOR V=135 TO 170 STEP 2
  1365. 6825  PSET(130,V),0
  1366. 6830  NEXT V
  1367. 6835  LINE(130,135)-(148,152),0
  1368. 6840  LINE-(130,170),0
  1369. 6845  FOR K=1 TO 750:NEXT K
  1370. 6850  GOSUB 30000       '*** Textpad ***
  1371. 6855  PRINT FNCEN$("Would you like to see that fold again?",40)
  1372. 6860  FOR K=1 TO 1500:NEXT K
  1373. 6865  PRINT FNCEN$("Press <R> to review.",40)
  1374. 6870  FOR K=1 TO 1000:NEXT K
  1375. 6875  PRINT FNCEN$("To continue, press <C>.",40)
  1376. 6880  A$=INKEY$:IF A$="" GOTO 6880
  1377. 6885  IF A$="r" OR A$="R" GOTO 6900
  1378. 6890  IF A$="c" OR A$="C" GOTO 7005
  1379. 6895  GOTO 6850
  1380. 6900  FOR A=0 TO 20
  1381. 6905  OUT 66,A:OUT 66,A
  1382. 6910  OUT 97,(INP(97) OR 3)
  1383. 6915  NEXT A
  1384. 6920  SOUND 37,0
  1385. 6925  LINE(130,135)-(148,152)
  1386. 6930  LINE-(130,170)
  1387. 6935  LINE(95,120)-(129,170),0,BF
  1388. 6940  LINE(129,135)-(93,135)
  1389. 6945  LINE-(128,170)
  1390. 6950  LINE-(129,170)
  1391. 6955  PAINT(125,165)
  1392. 6960  LINE(129,135)-(129,170),0
  1393. 6965  LINE(129,135)-(111,153),0
  1394. 6970  LINE(93,125)-(102,144),0
  1395. 6975  LINE(98,135)-(102,144)
  1396. 6980  'LINE(93,135)-(102,143),0
  1397. 6985  GOSUB 30000   '** Textpad **
  1398. 6990  PRINT FNCEN$("* Review *",40)
  1399. 6995  FOR K=1 TO 1500:NEXT K
  1400. 7000  GOTO 6495
  1401. 7005  GOSUB 30000         '** Textpad **
  1402. 7010  PRINT FNCEN$("And there we have it!",40)
  1403. 7015  FOR K=1 TO 1500:NEXT K
  1404. 7020                            '***Zapso8nd***
  1405. 7025  FOR A=0 TO 20
  1406. 7030  OUT 66,A:OUT 66,A
  1407. 7035  OUT 97,(INP(97) OR 3)
  1408. 7040  NEXT A
  1409. 7045  SOUND 37,0
  1410. 7050                             '***End Zapsound***
  1411. 7055  CLS
  1412. 7060  LINE(113,167)-(175,167)
  1413. 7065  LINE-(192,135)
  1414. 7070  LINE-(188,94)
  1415. 7075  LINE-(203,91)
  1416. 7080  LINE-(204,86)
  1417. 7085  LINE-(220,82)
  1418. 7090  LINE-(217,73)
  1419. 7095  LINE-(204,73)
  1420. 7100  LINE-(174,63)
  1421. 7105  LINE-(172,69)
  1422. 7110  LINE-(110,130)
  1423. 7115  LINE-(110,143)
  1424. 7120  LINE-(100,152)
  1425. 7125  LINE-(110,160)
  1426. 7130  LINE-(120,152)
  1427. 7135  LINE-(110,170)
  1428. 7140  LINE-(174,170)
  1429. 7145  PAINT(160,100)
  1430. 7150  LINE(100,152)-(110,170)
  1431. 7155  LINE(174,63)-(165,92),0
  1432. 7160  LINE-(189,134),0
  1433. 7165  LINE-(172,167),0
  1434. 7170  LINE(165,92)-(201,90),0
  1435. 7175  LINE-(205,73),0
  1436. 7180  LINE(189,134)-(184,91),0
  1437. 7185  LINE(189,94)-(189,91),0
  1438. 7190  LINE(202,87)-(220,82),0
  1439. 7195  LINE(217,72)-(217,81),0
  1440. 7200  LINE-(202,85),0
  1441. 7205  LINE(172,168)-(174,168)
  1442. 7210  LINE(173,169)-(175,168)
  1443. 7215  LINE(110,143)-(120,152),0
  1444. 7220  LINE-(111,161),0
  1445. 7225  LINE(110,130)-(110,160),0
  1446. 7230  LINE(110,160)-(110,169)
  1447. 7235  GOSUB 30000         '** Textpad **
  1448. 7240  PRINT FNCEN$("PUPPY",40)
  1449. 7245  FOR K=1 TO 1500:NEXT K
  1450. 7250  GOSUB 30000       '*** Textpad ***
  1451. 7255  PRINT FNCEN$("  Press <1> - To return to MAIN MENU.",40)
  1452. 7260  PRINT FNCEN$("  <2> - To repeat PUPPY.",40)
  1453. 7265  PRINT FNCEN$("      <3> - To exit from program.",40)
  1454. 7270  E$=INPUT$(1)
  1455. 7275  IF E$<"1" OR E$>"3" GOTO 7270
  1456. 7280  SEL=VAL(E$)
  1457. 7285  COMMON SEL
  1458. 7290  CLS
  1459. 7295  LOCATE 13,1:PRINT FNCEN$("One moment, please.",40)
  1460. 7296  LINE(70,75)-(250,125),3,B
  1461. 7300  ON SEL GOTO 7305,7310,7315
  1462. 7305  CHAIN"a:main"
  1463. 7310  CHAIN"a:puppy
  1464. 7315  CHAIN"a:end"
  1465. 7320  END
  1466. 30000  LOCATE 1,1
  1467. 30010  PRINT"                                                                                                                        "
  1468. 30020  LOCATE 1,1:RETURN
  1469.